
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       D e m o   f o r   s e q u e n c e   S E L E C T   /   E D I T   /   R U N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '     P L E A S E   S E L E C T   T H E   S E Q U E N C E   " T e s t S e q u e n c e " 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 O p t i o n   S p e e d   9 
 
 O p t i o n   G l o b a l K e y s   E n a b l e d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   s l o t s 
 
 V a r i a b l e   N u m e r i c   S l o t _ L e d R               =   1 
 
 V a r i a b l e   N u m e r i c   S l o t _ L e d G               =   2 
 
 V a r i a b l e   N u m e r i c   S l o t _ L e d B               =   3 
 
 V a r i a b l e   N u m e r i c   S l o t _ W h i t e L i g h t   =   4 
 
 
 
 G o s u b   S e t B u t t o n s 
 
 
 
 G o s u b   R e s t o r e V a r s A n d P o s i t i o n s 
 
 G o s u b   S h o w S e q u e n c e N a m e 
 
 
 
 S t o p 	 	 	 	 	 	   	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     B U T T O N S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   S e t B u t t o n s 
 
 	 B u t t o n   2   T e x t   E d i t S e q u e n c e 
 
 	 B u t t o n   E d i t S e q u e n c e   T e x t   " E d i t   s e q u e n c e " 
 
 	 B u t t o n   E d i t S e q u e n c e   C o l o r   P a l e G r e e n 
 
 	 
 
 	 B u t t o n   3   T e x t   R u n S e q u e n c e 
 
 	 B u t t o n   R u n S e q u e n c e   T e x t   " R U N   S E Q U E N C E " 
 
 	 B u t t o n   R u n S e q u e n c e   C o l o r   A q u a 
 
 	 
 
 	 B u t t o n   4   T e x t   S e l e c t S e q u e n c e 
 
 	 B u t t o n   S e l e c t S e q u e n c e   T e x t   " S e l e c t   S e q u e n c e " 
 
 	 B u t t o n   S e l e c t S e q u e n c e   C o l o r   P o w d e r B l u e 
 
 	 
 
 	 B u t t o n   7   T e x t   R e d 
 
 	 B u t t o n   R e d   C o l o r   R e d 
 
 	 
 
 	 B u t t o n   8   T e x t   M a g e n t a 
 
 	 B u t t o n   M a g e n t a   C o l o r   M a g e n t a 
 
 	 
 
 	 B u t t o n   9   T e x t   Y e l l o w 
 
 	 B u t t o n   Y e l l o w   C o l o r   Y e l l o w 
 
 	 
 
 	 B u t t o n   1 0   T e x t   G r e e n 
 
 	 B u t t o n   G r e e n   C o l o r   G r e e n 
 
 	 
 
 	 B u t t o n   1 1   T e x t   B l u 
 
 	 B u t t o n   B l u   C o l o r   M e d i u m B l u e 
 
 	 
 
 	 B u t t o n   1 2   T e x t   W h i t e 
 
 	 B u t t o n   W h i t e   C o l o r   G r e e n 
 
 	 
 
 	 B u t t o n   1 3   T e x t   R g b O f f 
 
 	 B u t t o n   R g b O f f   C o l o r   B l a c k 
 
 	 
 
 	 B u t t o n   1 5   T e x t   W h i t e L i g h t T o g g l e 
 
 	 B u t t o n   W h i t e L i g h t T o g g l e   T e x t   " W h i t e L i g h t   O N " 
 
 	 B u t t o n   W h i t e L i g h t T o g g l e   C o l o r   L i g h t C y a n 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     E N A B L E / D I S A B L E   B U T T O N S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E n a b l e A l l B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   E n a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   D i s a b l e A l l B u t t o n s 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   D i s a b l e d 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C L O S I N G   E V E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   C l o s e A l l 
 
 	 G o s u b   S a v e V a r s A n d P o s i t i o n s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 G o s u b   S a v e V a r s A n d P o s i t i o n s 
 
 	 G o s u b   E n a b l e A l l B u t t o n s 
 
 E n d 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S A V E   L O A D   V A R S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   S a v e V a r s A n d P o s i t i o n s 
 
 	 S 1   =   S e q u e n c e N a m e 
 
 	 S a v e   V a r s 
 
 R e t u r n 
 
 
 
 L a b e l   R e s t o r e V a r s A n d P o s i t i o n s 
 
 	 L o a d   V a r s 
 
 	 S e q u e n c e N a m e   =   S 1 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     L E D   C O L O R S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   R e d 
 
 	 S l o t   S l o t _ L e d R   =   1 0 0 0 
 
 	 S l o t   S l o t _ L e d G   =   0 
 
 	 S l o t   S l o t _ L e d B   =   0 
 
 R e t u r n 
 
 
 
 L a b e l   M a g e n t a 
 
 	 S l o t   S l o t _ L e d R   =   1 0 0 0 
 
 	 S l o t   S l o t _ L e d G   =   0 
 
 	 S l o t   S l o t _ L e d B   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   Y e l l o w 
 
 	 S l o t   S l o t _ L e d R   =   9 0 0 
 
 	 S l o t   S l o t _ L e d G   =   4 0 0 
 
 	 S l o t   S l o t _ L e d B   =   0 
 
 R e t u r n 
 
 
 
 L a b e l   G r e e n 
 
 	 S l o t   S l o t _ L e d R   =   0 
 
 	 S l o t   S l o t _ L e d G   =   1 0 0 0 
 
 	 S l o t   S l o t _ L e d B   =   0 
 
 R e t u r n 
 
 
 
 L a b e l   B l u 
 
 	 S l o t   S l o t _ L e d R   =   0 
 
 	 S l o t   S l o t _ L e d G   =   0 
 
 	 S l o t   S l o t _ L e d B   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   W h i t e 
 
 	 S l o t   S l o t _ L e d R   =   1 0 0 0 
 
 	 S l o t   S l o t _ L e d G   =   1 0 0 0 
 
 	 S l o t   S l o t _ L e d B   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   R g b O f f 
 
 	 S l o t   S l o t _ L e d R   =   0 
 
 	 S l o t   S l o t _ L e d G   =   0 
 
 	 S l o t   S l o t _ L e d B   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W H I T E   L I G H T 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W h i t e L i g h t T o g g l e 
 
 	 I f   S l o t ( S l o t _ W h i t e L i g h t )   =   0 
 
 	 	 G o s u b   W h i t e L i g h t O N 
 
 	 E l s e 
 
 	 	 G o s u b   W h i t e L i g h t O F F 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   W h i t e L i g h t O N 
 
 	 S l o t   S l o t _ W h i t e L i g h t   =   1 0 0 0 
 
 	 B u t t o n   W h i t e L i g h t T o g g l e   T e x t   " W h i t e L i g h t   O F F " 
 
 	 B u t t o n   W h i t e L i g h t T o g g l e   C o l o r   P o w d e r B l u e 
 
 R e t u r n 
 
 
 
 L a b e l   W h i t e L i g h t O F F 
 
 	 S l o t   S l o t _ W h i t e L i g h t   =   0 
 
 	 B u t t o n   W h i t e L i g h t T o g g l e   T e x t   " W h i t e L i g h t   O N " 
 
 	 B u t t o n   W h i t e L i g h t T o g g l e   C o l o r   L i g h t C y a n 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   I n i t S e q u e n c e P a t h s 
 
 	 V a r i a b l e   S t r i n g   E d i t o r F o l d e r 
 
 	 V a r i a b l e   S t r i n g   E d i t o r A p p 
 
 	 V a r i a b l e   S t r i n g   S e q u e n c e P a t h A n d N a m e 
 
 	 V a r i a b l e   S t r i n g   S e q u e n c e N a m e 
 
 	 ' 
 
 	 E d i t o r F o l d e r   =   " . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ E d i t o r \ " 
 
 	 ' 
 
 	 E d i t o r A p p   =   E d i t o r F o l d e r   +   " T h e r e m i n o _ E d i t o r . e x e " 
 
 	 ' 
 
 	 S e q u e n c e P a t h A n d N a m e   =   E d i t o r F o l d e r   +   " S e q u e n c e s \ "   +   S e q u e n c e N a m e 
 
 R e t u r n 
 
 
 
 L a b e l   E d i t S e q u e n c e 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 I f   F i l e E x i s t s ( S e q u e n c e P a t h A n d N a m e ) 
 
 	 	 L o a d   E d i t o r A p p   +   "   "   +   S e q u e n c e P a t h A n d N a m e 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   S e l e c t S e q u e n c e 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   S e l e c t F i l e ( E d i t o r F o l d e r   +   " S e q u e n c e s \ " ) 
 
 	 I f   s 1   < >   " " 
 
 	 	 S e q u e n c e N a m e   =   s 1 
 
 	 	 G o s u b   S h o w S e q u e n c e N a m e 
 
 	 	 G o s u b   E d i t S e q u e n c e 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   S h o w S e q u e n c e N a m e 
 
 	 B u t t o n   S e l e c t S e q u e n c e   T e x t   " S e q u e n c e "   +   C R L F   +   S e q u e n c e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R U N   s e q u e n c e 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   R u n S e q u e n c e 
 
 	 G o s u b   D i s a b l e A l l B u t t o n s 
 
 	 B u t t o n   E d i t S e q u e n c e   E n a b l e d 
 
 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 ' 
 
 	 S e q u e n c e T o E x e c u t e   =   S e q u e n c e P a t h A n d N a m e 
 
 	 V a r i a b l e   N u m e r i c   N u m C y c l e 
 
 	 F o r   N u m C y c l e   =   N u m C y c l e   T o   I n f i n i t y 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 N e x t 
 
 	 G o s u b   E n a b l e A l l B u t t o n s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e T o E x e c u t e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e T o E x e c u t e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e T o E x e c u t e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 ' 
 
 	 P r i n t   C R L F   +   " S e q u e n c e   "   +   G e t F i l e N a m e W i t h o u t P a t h ( S e q u e n c e T o E x e c u t e ) 
 
 	 P r i n t   "   s t a r t e d   a t   "   +   F o r m a t ( N o w ,   " H H : m m : s s " )   +   C R L F   +   C h a r s ( " - " ,   5 0 )   +   C R L F 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h   -   1 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D o   n o t   p r i n t   l i n e s   c o n t a i n i n g   ' ' 
 
 	 	 I f   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e C m d ,   " ' ' " )   <   2 
 
 	 	 	 P r i n t   "   E x e c :   "   +   S e q u e n c e C m d   +   C R L F 
 
 	 	 E n d I f 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T r i m   a n d   r e m o v e   c o m m e n t s 
 
 	 	 S e q u e n c e C m d   =   T r i m ( R e m o v e C o m m e n t s ( S e q u e n c e C m d ) ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 I f   S e q u e n c e C m d   < >   " " 
 
 	 	 	 S e l e c t   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L E D   C O L O R S 
 
 	 	 	 	 C a s e   " R e d " 
 
 	 	 	 	 	 G o s u b   R e d 
 
 	 	 	 	 C a s e   " M a g e n t a " 
 
 	 	 	 	 	 G o s u b   M a g e n t a 
 
 	 	 	 	 C a s e   " Y e l l o w " 
 
 	 	 	 	 	 G o s u b   Y e l l o w 
 
 	 	 	 	 C a s e   " G r e e n " 
 
 	 	 	 	 	 G o s u b   G r e e n 
 
 	 	 	 	 C a s e   " B l u " 
 
 	 	 	 	 	 G o s u b   B l u 
 
 	 	 	 	 C a s e   " W h i t e " 
 
 	 	 	 	 	 G o s u b   W h i t e 
 
 	 	 	 	 C a s e   " R g b O F F " 
 
 	 	 	 	 	 G o s u b   R g b O f f 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   W h i t e   l i g h t 
 
 	 	 	 	 C a s e   " W h i t e L i g h t O N " 
 
 	 	 	 	 	 G o s u b   W h i t e L i g h t O N 
 
 	 	 	 	 C a s e   " W h i t e L i g h t O F F " 
 
 	 	 	 	 	 G o s u b   W h i t e L i g h t O F F 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   E n d   s e q u e n c e 
 
 	 	 	 	 C a s e   " E n d S e q " 
 
 	 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   W i t h   p a r a m e t e r s 
 
 	 	 	 	 C a s e   " P a u s e " 
 
 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   E r r o r s 
 
 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d   +   C R L F 
 
 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 S t o p 
 
 	 	 	 E n d S e l e c t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 P r i n t   C h a r s ( " - " ,   5 0 )   +   C R L F   +   " S e q u e n c e   "   +   G e t F i l e N a m e W i t h o u t P a t h ( S e q u e n c e T o E x e c u t e ) 
 
 	 P r i n t   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c "   +   C R L F 
 
 R e t u r n 
 
 
 
 
 
 